VERSION 5.00
Object = "{E87F3F56-6776-47D2-ABDE-21BC1AE1815C}#39.0#0"; "BLacKActiveXS.ocx"
Begin VB.Form FrmBlock 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   0  'None
   Caption         =   "Porn Blocker"
   ClientHeight    =   6165
   ClientLeft      =   45
   ClientTop       =   360
   ClientWidth     =   8055
   BeginProperty Font 
      Name            =   "Century Gothic"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frm_main.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6165
   ScaleWidth      =   8055
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.PictureBox Picture1 
      Enabled         =   0   'False
      Height          =   615
      Left            =   360
      ScaleHeight     =   555
      ScaleWidth      =   675
      TabIndex        =   21
      Top             =   6960
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Timer ilang 
      Interval        =   500
      Left            =   600
      Top             =   5520
   End
   Begin VB.Timer kill_task 
      Interval        =   100
      Left            =   240
      Top             =   5520
   End
   Begin VB.Frame Frame_Menu 
      BackColor       =   &H00FFFFFF&
      Caption         =   " Menu Utama "
      Height          =   5895
      Left            =   5400
      TabIndex        =   4
      Top             =   120
      Width           =   2535
      Begin BlacKActiveXS.VistaGlassButton cmd_atur 
         Height          =   645
         Left            =   120
         TabIndex        =   22
         Top             =   480
         Width           =   2295
         _ExtentX        =   4048
         _ExtentY        =   1138
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   12632256
         BackColorPressed=   13459258
         BackColorHover  =   16741960
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Blokir Berdasarkan Alamat Situs"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin BlacKActiveXS.VistaGlassButton cmd_exit 
         Height          =   645
         Left            =   120
         TabIndex        =   23
         Top             =   4800
         Width           =   2295
         _ExtentX        =   4048
         _ExtentY        =   1138
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   12632256
         BackColorPressed=   13459258
         BackColorHover  =   16741960
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Exit"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin BlacKActiveXS.VistaGlassButton cmd_admin 
         Height          =   645
         Left            =   120
         TabIndex        =   24
         Top             =   3720
         Width           =   2295
         _ExtentX        =   4048
         _ExtentY        =   1138
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   12632256
         BackColorPressed=   13459258
         BackColorHover  =   16741960
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Admin"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin BlacKActiveXS.VistaGlassButton cmd_hide 
         Height          =   645
         Left            =   120
         TabIndex        =   25
         Top             =   2640
         Width           =   2295
         _ExtentX        =   4048
         _ExtentY        =   1138
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   12632256
         BackColorPressed=   13459258
         BackColorHover  =   16741960
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Hide"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin BlacKActiveXS.VistaGlassButton cmd_aturcap 
         Height          =   645
         Left            =   120
         TabIndex        =   26
         Top             =   1560
         Width           =   2295
         _ExtentX        =   4048
         _ExtentY        =   1138
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   12632256
         BackColorPressed=   13459258
         BackColorHover  =   16741960
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Blokir Berdasarkan Caption"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
   End
   Begin VB.Frame Frame2 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      Caption         =   " Admin Menu"
      ForeColor       =   &H80000008&
      Height          =   5895
      Left            =   240
      TabIndex        =   8
      Top             =   120
      Visible         =   0   'False
      Width           =   5055
      Begin VB.Frame Frame3 
         BackColor       =   &H00FFFFFF&
         Height          =   2175
         Left            =   240
         TabIndex        =   11
         Top             =   1320
         Width           =   4455
         Begin VB.CheckBox Check2 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Jalankan aplikasi pada saat komputer pertama kali dihidupkan"
            Height          =   375
            Left            =   120
            TabIndex        =   13
            Top             =   1200
            Value           =   1  'Checked
            Width           =   3855
         End
         Begin VB.CheckBox Check1 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Disable penggunaan Task Manager, Command Prompt, dan TaskKill selama  pemblokiran aktif"
            Height          =   855
            Left            =   120
            TabIndex        =   12
            Top             =   240
            Value           =   1  'Checked
            Width           =   4215
         End
      End
      Begin VB.TextBox txtpwd 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFC0&
         Height          =   375
         Left            =   360
         TabIndex        =   10
         Top             =   720
         Width           =   3135
      End
      Begin BlacKActiveXS.VistaGlassButton cmd_default 
         Height          =   525
         Left            =   3240
         TabIndex        =   27
         Top             =   3720
         Width           =   1455
         _ExtentX        =   2566
         _ExtentY        =   926
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   12632256
         BackColorPressed=   13459258
         BackColorHover  =   16741960
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Set Awal"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin BlacKActiveXS.VistaGlassButton cmd_save_seting 
         Height          =   525
         Left            =   240
         TabIndex        =   28
         Top             =   3720
         Width           =   1455
         _ExtentX        =   2566
         _ExtentY        =   926
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   12632256
         BackColorPressed=   13459258
         BackColorHover  =   16741960
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Simpan"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin BlacKActiveXS.VistaGlassButton cmd_set 
         Height          =   375
         Left            =   3480
         TabIndex        =   29
         Top             =   720
         Width           =   855
         _ExtentX        =   1508
         _ExtentY        =   661
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   12632256
         BackColorPressed=   13459258
         BackColorHover  =   16741960
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Set"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.Label Label5 
         BackColor       =   &H00FFFFFF&
         Caption         =   "Set Admin Password"
         Height          =   255
         Left            =   240
         TabIndex        =   9
         Top             =   360
         Width           =   1695
      End
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFFFFF&
      Caption         =   " Pengaturan Pemblokiran "
      Height          =   5895
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   5055
      Begin VB.ListBox List1 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFC0&
         Height          =   2670
         Left            =   240
         TabIndex        =   7
         Top             =   1680
         Width           =   4335
      End
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFC0&
         Height          =   330
         Left            =   240
         TabIndex        =   1
         Top             =   675
         Width           =   3015
      End
      Begin BlacKActiveXS.VistaGlassButton cmd_hapus 
         Height          =   525
         Left            =   3120
         TabIndex        =   30
         Top             =   5040
         Width           =   1455
         _ExtentX        =   2566
         _ExtentY        =   926
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   12632256
         BackColorPressed=   13459258
         BackColorHover  =   16741960
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Hapus"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin BlacKActiveXS.VistaGlassButton cmd_refresh 
         Height          =   525
         Left            =   240
         TabIndex        =   31
         Top             =   5040
         Width           =   1455
         _ExtentX        =   2566
         _ExtentY        =   926
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   12632256
         BackColorPressed=   13459258
         BackColorHover  =   16741960
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Refresh"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin BlacKActiveXS.VistaGlassButton cmd_add 
         Height          =   375
         Left            =   3360
         TabIndex        =   32
         Top             =   720
         Width           =   855
         _ExtentX        =   1508
         _ExtentY        =   661
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   12632256
         BackColorPressed=   13459258
         BackColorHover  =   16741960
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Tambah"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.Label lbl_jml 
         BackStyle       =   0  'Transparent
         Caption         =   "00"
         BeginProperty Font 
            Name            =   "Century Gothic"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   2400
         TabIndex        =   6
         Top             =   4560
         Width           =   615
      End
      Begin VB.Label Label4 
         BackStyle       =   0  'Transparent
         Caption         =   "Jumlah situs yang diblokir : "
         Height          =   255
         Left            =   240
         TabIndex        =   5
         Top             =   4560
         Width           =   2175
      End
      Begin VB.Label Label2 
         BackStyle       =   0  'Transparent
         Caption         =   "Masukan alamat situs yang akan diblokir"
         Height          =   255
         Left            =   240
         TabIndex        =   3
         Top             =   360
         Width           =   3375
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "Daftar alamat situs yang sedang di blokir"
         Height          =   255
         Left            =   240
         TabIndex        =   2
         Top             =   1320
         Width           =   4095
      End
   End
   Begin VB.Frame Framecap 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   " Pemblokiran Berdasarkan caption"
      ForeColor       =   &H80000008&
      Height          =   5895
      Left            =   240
      TabIndex        =   14
      Top             =   120
      Width           =   4935
      Begin VB.ListBox lst_cap 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFC0&
         Height          =   2670
         Left            =   240
         TabIndex        =   15
         Top             =   1680
         Width           =   4335
      End
      Begin VB.TextBox txt_blokcap 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFC0&
         Height          =   330
         Left            =   240
         TabIndex        =   16
         Top             =   675
         Width           =   3015
      End
      Begin BlacKActiveXS.VistaGlassButton cmd_delcap 
         Height          =   525
         Left            =   3120
         TabIndex        =   33
         Top             =   5040
         Width           =   1455
         _ExtentX        =   2566
         _ExtentY        =   926
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   12632256
         BackColorPressed=   13459258
         BackColorHover  =   16741960
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Hapus"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin BlacKActiveXS.VistaGlassButton cmd_refreshcap 
         Height          =   525
         Left            =   240
         TabIndex        =   34
         Top             =   5040
         Width           =   1455
         _ExtentX        =   2566
         _ExtentY        =   926
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   12632256
         BackColorPressed=   13459258
         BackColorHover  =   16741960
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Refresh"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin BlacKActiveXS.VistaGlassButton cmd_addcap 
         Height          =   375
         Left            =   3360
         TabIndex        =   35
         Top             =   720
         Width           =   855
         _ExtentX        =   1508
         _ExtentY        =   661
         ButtonStyle     =   7
         ButtonTheme     =   8
         BackColor       =   12632256
         BackColorPressed=   13459258
         BackColorHover  =   16741960
         BorderColor     =   9408398
         BorderColorPressed=   6045981
         BorderColorHover=   11632444
         Caption         =   "Tambah"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.Label Label9 
         BackStyle       =   0  'Transparent
         Caption         =   "Daftar caption yang sedang di blokir"
         Height          =   255
         Left            =   120
         TabIndex        =   20
         Top             =   1320
         Width           =   3135
      End
      Begin VB.Label Label8 
         BackStyle       =   0  'Transparent
         Caption         =   "Masukan caption yang akan diblokir"
         Height          =   255
         Left            =   240
         TabIndex        =   19
         Top             =   360
         Width           =   3615
      End
      Begin VB.Label Label7 
         BackStyle       =   0  'Transparent
         Caption         =   "Jumlah caption yang diblokir : "
         Height          =   255
         Left            =   240
         TabIndex        =   18
         Top             =   4560
         Width           =   2415
      End
      Begin VB.Label lbl_jmlcap 
         BackStyle       =   0  'Transparent
         Caption         =   "00"
         BeginProperty Font 
            Name            =   "Century Gothic"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   2760
         TabIndex        =   17
         Top             =   4560
         Width           =   615
      End
   End
   Begin VB.Menu mnu 
      Caption         =   ""
      Visible         =   0   'False
      Begin VB.Menu show 
         Caption         =   "Show"
      End
   End
End
Attribute VB_Name = "FrmBlock"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmd_add_Click()
Dim cari As Long
If Text1.Text = "" Then
MsgBox "Anda belum memasukan situs yang akan diblokir", vbInformation + vbOKOnly, "Porn Blocker"
Exit Sub
End If

For cari = 0 To List1.ListCount - 1
If Text1.Text = List1.list(cari) Then
MsgBox "Situs yang anda masukan sudah ada dalam daftar situs yang diblokir", vbInformation + vbOKOnly, "Porn Blocker"
Exit Sub
End If
Text1.SetFocus
Next


List1.AddItem Text1.Text
Text1.Text = ""
SaveFileHost List1, GetSystemPath & "\drivers\etc\Hosts"
lbl_jml.Caption = List1.ListCount

End Sub

Private Sub cmd_addcap_Click()
Dim cari As Long
If txt_blokcap.Text = "" Then
MsgBox "Anda belum memasukan caption yang akan diblokir", vbInformation + vbOKOnly, "Porn Blocker"
Exit Sub
End If

For cari = 0 To lst_cap.ListCount - 1
If txt_blokcap.Text = lst_cap.list(cari) Then
MsgBox "Caption yang anda masukan sudah ada dalam daftar caption yang diblokir", vbInformation + vbOKOnly, "Porn Blocker"
txt_blokcap.SetFocus
Exit Sub
End If
Next

lst_cap.AddItem txt_blokcap.Text
txt_blokcap.Text = ""
SaveCaption lst_cap, App.Path & "\list.pid"
lbl_jmlcap.Caption = lst_cap.ListCount


End Sub

Private Sub cmd_admin_Click()
Frame1.Visible = False
Frame1.Enabled = False
Frame2.Enabled = True
Frame2.Visible = True
Framecap.Visible = False
Framecap.Enabled = False

End Sub


Private Sub cmd_atur_Click()
Frame1.Visible = True
Frame1.Enabled = True
Frame2.Enabled = False
Frame2.Visible = False
Framecap.Visible = False
Framecap.Enabled = False
lbl_jml.Caption = List1.ListCount

End Sub

Private Sub cmd_aturcap_Click()
Frame1.Visible = False
Frame1.Enabled = False
Frame2.Enabled = False
Frame2.Visible = False
Framecap.Visible = True
Framecap.Enabled = True
lbl_jmlcap.Caption = lst_cap.ListCount

End Sub

Private Sub cmd_default_Click()

If MsgBox("Apakah anda yakin", vbInformation + vbYesNo, "Porn Blocker") = vbYes Then
Open App.Path & "\pass.pid" For Output As #1
    Print #1, "PornBlocker"
Close #1
Check1.Value = 1
Check2.Value = 1
kill_task.Enabled = True
kill_task.Interval = 100

MsgBox "Settingan default berhasil dilakukan" & vbNewLine & "Password default anda adalah y4d0y666" & vbNewLine & "Jangan lupa untuk menggantinya", vbInformation + vbOKOnly, "Porn Blocker"
Else
Exit Sub
End If

End Sub

Private Sub cmd_delcap_Click()
If lst_cap.ListIndex = -1 Then
MsgBox "Anda belum memilih situs yang akan dihapus", vbInformation + vbOKOnly, "Porn Blocker"
Exit Sub
End If
lst_cap.RemoveItem (lst_cap.ListIndex)
HapusCaption lst_cap, App.Path & "\list.pid"
Call cmd_refreshcap_Click
lbl_jmlcap.Caption = lst_cap.ListCount


End Sub

Private Sub cmd_exit_Click()
On Error GoTo hell
If MsgBox("Apakah anda yakin ingin keluar dari aplikasi ini?" & vbNewLine & "Keluar dari aplikasi ini berarti proses pemblokiran dihentikan", vbInformation + vbYesNo, "Porn Blocker") = vbYes Then

Unload Me
Else
Exit Sub
End If
hell:
If Err.Number = 53 Then
On Error Resume Next
ElseIf Err.Number = 75 Then
On Error Resume Next
End If

End Sub

Private Sub cmd_hapus_Click()
If List1.ListIndex = -1 Then
MsgBox "Anda belum memilih situs yang akan dihapus", vbInformation + vbOKOnly, "Porn Blocker"
Exit Sub
End If
List1.RemoveItem (List1.ListIndex)
hapus List1, GetSystemPath & "\drivers\etc\Hosts"
Call cmd_refresh_Click
lbl_jml.Caption = List1.ListCount

End Sub

Private Sub cmd_hide_Click()
Me.Hide
App.TaskVisible = False
ilang.Enabled = True
End Sub

Private Sub cmd_refresh_Click()
List1.Clear
LoadFileHost List1, GetSystemPath & "\drivers\etc\Hosts"
Text1.Text = ""
Text1.SetFocus
lbl_jml.Caption = List1.ListCount

End Sub

Private Sub cmd_refreshcap_Click()
lst_cap.Clear
Load_Caption lst_cap, App.Path & "\list.pid"
txt_blokcap.Text = ""
txt_blokcap.SetFocus
lbl_jmlcap.Caption = lst_cap.ListCount


End Sub


Private Sub cmd_save_seting_Click()
If Check1.Value = 0 Then
kill_task.Enabled = False
kill_task.Interval = 0
Else
kill_task.Enabled = True
kill_task.Interval = 100
End If
End Sub

Private Sub cmd_set_Click()
Dim pass As String
pass = EncryptText(txtpwd.Text, "pass")
If txtpwd.Text = "" Then
MsgBox "Anda belum memasukan password", vbInformation + vbOKOnly, "Porn Blocker"
Exit Sub
End If
Open App.Path & "\pass.pid" For Output As #1
    Print #1, pass
Close #1
MsgBox "Password berhasil disimpan" & vbNewLine & "password anda saat ini adalah :" & txtpwd.Text, vbInformation + vbOKOnly, "Porn Blocker"
txtpwd.Text = ""
txtpwd.SetFocus
End Sub


Private Sub Form_Load()
mulai
TrayAdd hwnd, Picture1.Picture, "The Porn Blocker", MouseMove
Frame1.Visible = True
Frame1.Enabled = True
Frame2.Enabled = False
Frame2.Visible = False
Framecap.Visible = False
Framecap.Enabled = False
LoadFileHost List1, GetSystemPath & "\drivers\etc\Hosts"
lbl_jml.Caption = List1.ListCount
lst_cap.Clear
Load_Caption lst_cap, App.Path & "\list.pid"
lbl_jmlcap.Caption = lst_cap.ListCount
buat_kill
End Sub

Private Sub Form_Unload(Cancel As Integer)
TrayDelete
backup
Kill App.Path & "\kill.bat"
End Sub

Private Sub Frame1_Click()
Text1.SetFocus
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim cEvent As Single
cEvent = X / Screen.TwipsPerPixelX
Select Case cEvent
    Case MouseMove
        Debug.Print "MouseMove"
    Case LeftUp
        Debug.Print "Left Up"
    Case LeftDown
        Debug.Print "LeftDown"
    Case LeftDbClick
        Debug.Print "LeftDbClick"
    Case MiddleUp
        Debug.Print "MiddleUp"
    Case MiddleDown
        Debug.Print "MiddleDown"
    Case MiddleDbClick
        Debug.Print "MiddleDbClick"
    Case RightUp
        Debug.Print "RightUp": PopupMenu mnu
    Case RightDown
        Debug.Print "RightDown"
    Case RightDbClick
        Debug.Print "RightDbClick"
End Select
End Sub

Private Sub ilang_Timer()
On Error GoTo hell
Dim bunuh As Long
FrmBlock.Hide
App.TaskVisible = False
For bunuh = 0 To lst_cap.ListCount - 1
kill_IE (lst_cap.list(bunuh))
Tonjok (lst_cap.list(bunuh))
Next
IfNoErr:
Exit Sub
hell:
 TulisError Err.Description, Err.Number, "ilang", Me.Name
 Resume IfNoErr

End Sub
Private Sub kill_task_Timer()
Hajar "TASK MANAGER"
Hajar "CMD"
Hajar "Command Prompt"
End Sub
Private Sub show_Click()
 FrmPass.show
End Sub
Private Sub buat_kill()
On Error GoTo hell
Open App.Path & "\kill.bat" For Output As #1
 Print #1, "taskkill /f /im iexplore.exe"
Close #1
hell:
If Err.Number = 53 Then
On Error Resume Next
ElseIf Err.Number = 75 Then
On Error Resume Next
End If

End Sub




